    for each tr_hist no-lock
       where tr_domain = global_domain
        and tr_effdate >= 05/26/18
       and  tr_trnbr >= trnbr
        and  tr_trnbr <= trnbr1  ,     
        each trgl_det no-lock
       where trgl_domain = tr_domain
        and  trgl_trnbr  = tr_trnbr
        and  trgl_gl_amt <> 0,         
       first si_mstr no-lock
       where si_domain = tr_domain
        and  si_site   = tr_site:
        
         find first glt_det where glt_det.glt_domain = tr_domain and glt_det.glt_ref = trgl_gl_ref
   no-lock no-error.
   if available glt_det then next.
   
   find first posting no-lock
        where PostingOriginDocument  = string(tr_trnbr) 
         and  PostingOriginReference = trgl.trgl_gl_ref
         and  PostingOriginTransType = "IC"
         and  POSTING.PostingDate    >= tr_effdate
         no-error.
   if not avail posting then do:
     disp tr_trnbr.
  end.
  end.
  